Ultra Gameplayers 101/Ultra Game Players Magazine, No. 101 - September 1997 (Imagine Publishing, Inc.)(1997).iso/pc/new_ugp.dxr/00221.ls

Text File | 1997-07-10 | 1.6 KB | 66 lines

on CreateMenu params
  set titleObj to GetGlobal(#gTitleObject)
  if objectp(the currMenu of titleObj) then
    put "Error: Menu object already exists"
  end if
  set currMenu to new(script "Generic Menu Class", params)
  set the currMenu of titleObj to currMenu
  set adBanner to the adBanner of titleObj
  if objectp(adBanner) then
    ResetPos(adBanner)
  end if
  return currMenu
end

on NewObject menuObj, scriptName, params
  set NewObj to new(script scriptName, params)
  append(the killList of menuObj, NewObj)
  return NewObj
end

on HideVolumeAndVideo
  set volumeSprite to GetGlobal(#volumeButton)
  set the visible of sprite (volumeSprite + 1) to 0
  set the visible of sprite (volumeSprite + 2) to 0
  set the visible of sprite (volumeSprite + 3) to 0
end

on ChangeAdBanner memNum
  set titleObj to GetGlobal(#gTitleObject)
  set adBanner to the adBanner of titleObj
  if objectp(adBanner) then
    ChangeAd(adBanner, memNum)
  end if
end

on WaitTicks numTicks
  set waitTime to the ticks + numTicks
  repeat while the ticks < waitTime
  end repeat
end

on GetHotSprite currCast
  set hotSprite to 0
  repeat with sNum = 48 down to 1
    if rollOver(sNum) then
      if the memberNum of sprite sNum = currCast then
        set hotSprite to sNum
        exit repeat
      end if
    end if
  end repeat
  return hotSprite
end

on ClearObjectList objList
  if listp(objList) then
    repeat while count(objList) > 0
      set object to getAt(objList, 1)
      if objectp(object) then
        dispose(object)
      end if
      deleteAt(objList, 1)
    end repeat
  end if
end